www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminLabel\D_copy_custom_label.asp
<% '************************************************************** ' 新动软网站管理系统 ' 官方网站: http://www.aspcpu.com ' 系统作者: 阮丁远(网名:天下程序) ' Copyright 新动软网站管理系统 版权所有 '************************************************************** %> <LINK href="../css.css" type=text/css rel=stylesheet> <% dir_set="../../" %> <!--#include file=../../inc/conn.asp--> <!--#include file=../../inc/Functionb.asp--> <!--#include file=../../inc/ajaxLIB.asp--> <!--#include file=../inc/checkadmin2.asp--> <!--#include file=../../inc/functionFiless.asp--> <!--#include file=../../inc/ND_class_function.asp--> <% AJAXshowLoader() %> <div id="l_do" style="filter:blendTrans(duration=1); width:734px; z-index:-1; border: 1px dashed #999999;left: 3px; top: 120px; height: 40px;"> <form action="D_chk_copy_custom_label.asp" method="post"> <table width=730 > <tr align="center"> <td> <% sssp=request("fpath") if sssp<>"" then sssspq=split(sssp,"/") ooosss="" sssr=ubound(sssspq)-1 dddds=sssspq(sssr) end if sssp=request("fname") sssspq=split(sssp,"/") ooosss="" for iii=0 to ubound(sssspq)-2 ooosss=ooosss&sssspq(iii)&"/" next ooossse=sssspq(ubound(sssspq)-1) ssqqq1=left(sssp,len(sssp)-1) dddd2=loadfile("../../Label/custom_Label/"&ssqqq1) call get_info_array_from_label_file_content(dddd2) ooosssee=nd1_l_name ooosssh="" if ooosss<>"" then ooosssh=left(ooosss,len(ooosss)-1) end if %> 复制到:/Label/custom_Label/<input name="fnm" type="text" size=35 value="<%=ooosssh%>">/<input name="fnme" type="text" value="copy_<%=ooossse%>" size=35> <br /> 复制到的标签的新标签名:<input name="fnmeeee" type="text" size=40 value="copy_<%=ooosssee%>"> </td> </tr> <tr align="center"> <td> <input type="hidden" name=fname value="<%=request("fname")%>" /> <input type="hidden" name=p_page value="<%=request("p_page")%>"/> <input type="submit" value="开始复制" /> </td> </tr> </table> </form> </div> <script language=javascript> AJAXfade(1,'l_do'); </script> <% AJAXcloseLoader() %>